DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


| **F ILE®*1D**DBGNHELP 
DDDDDDDD 6BBBBBBB GGGGGGGG NN NN HH HH EEEEEEEEEE LL PPPPPPPP 
DDDDDDDD 6BBBBBBB GGGGGGGG NN NN HH HH EEEEEEEEEE LL PPPPPPPP 
0D DD 8B BB GG NN NN HH HH EE LL pe pp 
DD DD 6B BB GG NN NN HH HH EE LL da pp 
DD DD 68 BB GG NNNN NN HH HH EE LL PP PR 
DD DD 8B BB GG NNNN NN HH HH EE LL pp Pp 
DD DD 88888888 GG NN WN WN HHHHHHHHHH EEEEEEEE LL PPPPPPPP 
0D D GG NN NN WHHHHHHHHHH EEEEEEEE LL PPPPPPPP 
0D DD 6B BB GG GGGGGG NN NNNN HH HH EE LL PP 
oD DD 6B BB GG GGGGGG NN NNNN HH HH EE LL PP 
0D DD 6B BB GG GG WN NN HH HH EE LL PP — 
0D DD 6B BB NN NN HH HH EE LL Pp eae 
DDDDDDDD 6B888BBB G NN NN HH HH EEEEEEEEEE LLLLLLLLLL PP enw 
DDDDDDDD 68888888 GGG6GGG NN NN HH HH EEEEEEEEEE LLLLLLLLLL PP bane 
LL 111111 SSSSSSSS 
LL HI1111 SSSSSSSS 
LL Il ss 
iL I! SS 
LL I] ss 
LL II ss 
LL I] SSSSSS 
LL I] SSSSSS 
LL Il ss 
LL Il ss 
LL II SS 
LL Il ss 
LLLLLLLLLL I11111 SSSSSSSS 
LLLLLLLLLL 11111 SSSSSSSS 
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; 1 1 p MODULE DBGNHELP (IDENT = ‘v04-000') = 

3 § ‘ BEGIN 

; ¥ 3 43 

: $ OpS 1 i seeeeunenveneneceennrensennnererereereecenereeteneenetansnennnneneceneenees 
3 '@ ® 
; 8 B98 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 19 geiy ! :* ALL RIGHTS RESERVED. * 
: ; ea 
3 \§ \¢ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
as 15 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 1% 014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
$ 15 015 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; i$ B28 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i Bote : :. TRANSFERRED. * 
Py . w 
eS 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 0 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 1 88 1 : :* CORPORATION. e 
H 'e ® 
; 8 : 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; : 88 $ ; : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; 
> 26 0026 ie . 
3 i 4 i : anata aaa nt atta icintlatniattiainiaaiaiein 
: 29 0029 1! 

$ 0 0030 1 ! MODULE FUNCTION 

; 1 0031 1! This module contains the ATN parse and command execution networks to 
; ¢ Oo ss ,: support the HELP command. The routine DBGSNEXECUTE_HELP consists of 

; 0035 1! the version 2 Cobugger routine DBGSGET_HELP with a few modifications 
3 4 0034 1! to allow it to perform correctly in version 3. Specifically, error 

; 5 0035 1! signals (which unwind the stack) have been replaced with calls to 

3 $ 89 $ : } version 3 error output routines. 

; #38 0038 1: 

3 9 0039 1 ! AUTHOR: David Plummer, CREATION DATE: 4/9/80 

; 40 0040 1! 

H 41 0041 1 ! MODIFIED BY: 

3; «§ sk ,? 

; 4 045 1! Richard Title 15 Dec 1981 Converted to the new help 

3; (44 Boe 1! Librarian LBRSOUTPUT_HELP, 

3 (45 045 1! which prompts for output, 

; (4 B06 1! “teats? ™,. ic? ‘’) 

; 6 0047 1! Richard Title 13-Jun 1982 Added support for DBGSHELP 

; «48 Be (Logical name telling where 

; «649 91! the help Library is) 

a ae 

; : 052 1 REQUIRE ‘SRC$:DBGPROLOG.REQ" ; 

; 54 : ; : LIBRARY ‘LIB$:DBGGEN.L32'; 

: 56 189 1 FORWARD ROUTINE 

; 0190 1 DBGSNPARSE _HELP, ! Creates the command execution tree for help 


DBGSNEXECUTE HELP, 
PRINT_HELP_LINE, 
INPUT “HELP “LINE: 


rbodeoctgpe O1:46:06  yaR=t OLing= 52 4.05742. 
' Executes the parsed + command 


i Print a Line of HELP t 
' Input HELP topic or oubrente request 


; 6 194 1 EXTERNAL TIN E 

: 6 195 1 bas bce TEMPMEM, 

s 66% 196 1 WCINE: NOVALUE, 

: 65 197 1 DBCSNRAK KE ARG veCT, 

; 66 198 1 DBGSPRINT? NOVALU 

: 6 199 1 BGSSCR_OUTPUT_SC YE een: NOVALUE, 
: 68 1 DBGSSCR-SCREEN MODE: NOVALUE, 
3 9 & LBRSINI CONTROL, 

: 70 ; 1 LBRSOPER 

; (71 1 LBRSCLOSE 

oe 04 1 LBRSGET_HELP 

. +9 5 1 LBRSOUTPUT_HELP, 

> 7% 06 1 LIBSPUT -0uTP 

=. 0 1 LIBSGET 

a w 0208 1 MGSREAB "COMPOSED LINE, 

3 a : SySstR NLOG; 

: 79 0211 1 EXTER NAL 

: 80 0 1 1 DBGSCHAR_TABLE: VECTOR BYTE, 
3; 8 0213 1 JKEY NPUT 

. & 0214 1 DBGSGL_CISHEAD: REF F clsst inc, 
: 8 0215 1 DBG$GL— INP BLO Ck BYTE) 

>: B4 0216 1 DBGSGL “KEYBOARD 

: «8S 0217 1 DBGSGL-KEY_T 

; 686 0218 1 DBGS$GL ~SUTPRABS bec. BYTE), 
: 87 0 19 DBGSGL~SCREEN_MODE 

: 89 0931 1 EXTERNAL LITERAL 

3 90 0222 1 SMG$ 3 


131°, ¢ 
Ve-Sep-19be festesie — EDeaUG.SR 


c§ 


s-32 V4.0-742 
CJDBGNHELP.832;1 


se py: yas gfe dynamic storage 


o to a new print 


Constructs a message erguaent vector 


Print some debug output 


Output the current screen contents 


Turn screen mode on or o 
Librarian init control table 
Librarian open Library file 
brarian close Library file 
rarian get hel 
rarian output help 


rary input routine 


d a line of input in keypad mode 


Li 

Lib 

Lib 

Library output routine 
Lib 

Rea 

Translate logical name 


Character type table 


Flag set if keypad input th active 


Head of Command Input Str 
RAB for DEBUG tepuk. {pBES INPUT) 


The keyboard Id used for keypad input 
The key-table Id used for peyped input 


RAB for DEBUG output (DBGSOU 


Flag set if screen mode is active 


Keypad input End-of-File code 


Page 
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GLOBAL ROUTINE DBGSNPARSE_HELP (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 


FUNCTION 
DBGSNPARSE_HELP constructs the command execution tree for the HELP 
command. Specifically, a Noun Node is allocated and Linked to the 
Verb Node. A copy of the present input descriptor yt pales the 
input Line minus the beyeere HELP) is made, and the vélue of the Noun 
Node is a pointer to this descriptor. The actual parsing of the HELP 
string is done by DBGSNEXECUTE_HELP. 


INPUTS 
INPUT_DESC = Descriptor of the present input Line. 


VERB_NODE = Head of the command execution tree. 


MESSAGE _VECT = The address of a longword to contain the address 
of a message argument vector. 


OUTPUTS 
INPUT_DESC = The input Line string descriptor is updated to reflect 
the current parse location. This normally means that the 
input descriptor winds up pointing past the end of the Line. 


VERB_NODE = The Verb Node is filled in to reflect the parameters 
parsed on the HELP command. 


Sat ee 
MEUN @ O OONA UNE WIN 0 OBNAU EWN OC OODNOYL EWN OOOO Ww 


An unsigned integer longword completion code is returned as the 
routine’s value. These are the possible values: 


ES SEVERE (4) = The input could not be parsed. 


S$K-SUCCESS (1) = The input was parsed and an execution 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! 
i 
i 
i 
tree was created. 


BEGIN 
MAP 
INPUT_DESC: REF DBGSSTG_DESC, ! Pointer to input ser ing descriptor 
e 


VERB_RODE: REF DBG$VERB-NODE; ! Pointer to the Verb No 
LOCA 


WANA AP POPOPPONNONINNYD 2 2 SS HO 


BEAN ZS SOVEONRGNLSSOVS ARAVHOSSLS APA OSB EMCI 


L 
NOUN_NODE: REF DBGSNOUN_NODE ! Pointer to Noun node for execution tree 
COMMAND_DESC: REF DBG$STG_DESC; | Descriptor of HELP Line 


PEEP XqPEQEMAAMMAAM IVa & 


Ker. § 


POR IPOROPONOPOPONIFONONO NINO RINONINI NINO PIFORINOPONININIFINININININIFD 
= 
POR POROPPOROPORUNONORONERORONONONONOPURLIIID 4 9 tt 


: Get storage for the Noun Node and Link it to the Verb Node. 
NOUN_NODE = DBGSGET_TEMPMEM (DBGS$K_NOUN NODE SIZE); 

VERB_NODE CDBGS$L_VERB_OBJECT_PTR) = .NOON_NODE; 

Get storage for the command descriptor. 

COMMAND _DESC = DBGSGET_TEMPMEM (2); 


SOOCOOOCOSOSOOSOSOSOSOSOSCOSOSSOSOOS SOO SCOOCOSOOOOOOCOOOCOCOOOOOOOOOOOOOOOOOCOoOO 
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3 198 9 Copy the fields of the input descriptor to the command descriptor. 
: 151 : COMMAND_DESC [DSCSW_LENGTH] = .INPUT_DESC CDSC$W_LENGTH); 

; | g ; COMMAND-DESC [CDSCSA_POINTER] = .INPUT_DESC CDOSCSA_POINTER); 

: 154 5 

$ i 5 } Set the value of the Noun Node to the address of the command descriptor. 
: 1 ? § NOUN_NODE CDBGSL_NOUN_VALUE] = .COMMAND_DESC; 

: 159 90 

; 199 4 ; Eat the rest of the input command and return. 

: 16¢ 98 INPUT DESC COSC$W_LENGTH) = 0; 

> 16 94 RETURN STS$K_SUCCESS; 

: 164 0295 

: 165 0296 1 END; 


ITLE DBGNHELP 
DENT \v04-000\ 
x 


TRN DBGSGET_TEMPMEM 


T 
I 

E 

EXTRN DBGSNEWLCINE, DBGSNMAKE_ARG_VECT 
-EXTRN DBGSPRINT, DBGS$SCR_OUTPUT_SCREEN 
; REEN MODE 
E 
E 


‘ G$RE L 
-EXTRN SYSS$TRNLOG DBGSCRAR_TABLE 


dB KEYPA 
-EXTRN DBGSGL_-CISHEAD, DBGSGL_INPRAB 
-EXTRN DBGS$GL-KEYBOARD_ID 


SEXTRN DBGS$GL-KEY_ TABLE ID 
-EXTRN DBGS$GL-OUTPRAB, BBGSGL_SCREEN_MODE 
-EXTRN SMG$_EOF 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
000c 00000 .ENTRY DBGSNPARSE_HELP, Save R2.R3 F 
53 000000006 00 9€ 90008 MOVAB DBGSGET_TEAPMEM, R : 
04 DD 900 PUSHL : 
$3 50 00 000E foto’ Eee ; 
5 08 AC OD Goart MOVL § VERB_NODE, R ; 
08 Ao 53 D0 00 13 ROVE es 8(RO) 
3 86 FB S018 CALLS @ DBGSGET_TEMPMEM : 
1 04 AC 00 0001 MOVL INPUT_DESC,~R : 
60 61 80 000 ; MOVW = (R1), ~(COMMAND_DESC) : 
06 A 04 Al 06 MOVL 4(R1S, 4( COMMAND DESC) F 
6 50 D a MOVL COMMAND _DESC, (NOUN_NODE) 3 
50 61 BO 0005 Move oat RO 
Be 80 2 RE ‘ : 


VOe~000" 


; Routine Size: 


51 bytes, 


Routine Base: 


DBGSCODE + 0000 


M10 
$=300° 
g-2e8- 


1986 9299598 


AX-11 
DEBUG. 


Liss-32 V4.0-74 
RCJDBGNHELP. 832 


Page of | 


N 10 


+ | 
! then we use that as t 
Otherwise, the help Librarian looks in SYSSHELP by default. 


pages TT Renner (2); 
x'01 e000 + 256; 
DUMMY. PER: 


or- 
— 
So 
<z 
Oo 
wm 
“un 


! Set up string descriptor for DBGSHELP. Use DBGSHELP as the directory 
name mf a logical name translation exists for DBGSHELP. 


DBGHELP_STGDESC(DSC$B_CLASS] = DSC$K_CLASS_ ;: 
DBGHELP-STGDESCCDSCS$B-DTYPE} = DSCSK-DTYPE-T 


DBGNHELP 1e-Se -1984 01:46: AX-11 Bliss-32 V4.0-742 Page 
MOEN ODD 12-3001 38 91:46:06 DEBUG. SRC IDBGNHELP.B32:1 . 
; 167 44 ! GLOBAL ROUTINE DBGSNEXECUTE_HELP (VERB_NODE) = 

: 168 38 1} FUNCTION 

: A oi ! Invoke the VMS Librarian to implement the HELP command. 

; 1% é 1! INPUTS 

3. Oe 05 1! VERB_NODE = A pointer to the Verb Node that forms the head of the 
: ir be : } command execution tree for the HELP command. 

; 176 06 1 § ouTPUTS 

: 7 ak This routine always returns STSSK_SUCCESS as its value. 

i By 

: 180 0310 BEGIN 

. oo 

; 188 0 18 VERB_NODE: REF DBGSVERB_NODE; ! Pointer to the input Verb Node 

: 185 0515 LOCAL 

; 186 0316 CHAR ! jouperars ploceneléer po * char 
3s 187 0317 COU nf, ' Counter for iptor for: 

; 188 0318 DBGHECP. Yh aad 3 OGk C8,BYTEJ, ! String descriptor or SBGSHELP 

3 189 0319 DBGHELP™STG: 8,8 Byte * String with D 

: 139 bas DUMMY : VECTOR. cr0Rt Outpu t string 3 yon» for 

: 198 O32 DUMMY -BUFFER: VECTOR (256, BYTE], ! om. wey for SYS$TRNLOG 

; #19 03 INPUT PTR, f Temporary pointer into input 

> 194 base LIB_NAME: REF DBGS$STG DESC. ! descriptor for library name 

: 195 0325 NOUN NODE: REF DBGSNOON NODE, node of command execution tree 
: 196 0326 PARSE_STG pest: REF bBeSerc DESC)! 0 "Descriptor of the help command 
3; 197 0327 SAVED gr Anse. G_DESC, 

: 198 0328 SCREER. MOD “FLAC” i Seal value of screen mode flag 
3; 199 0329 STATU i Librarian routines return status 
3 $p0 B3 9 FRNLOG: ' Return status from $TRNLOG 

: 20 033 

3 208 §338 

: ‘s4 Osee i Recover pointers to the Noun Node and the command descriptor. 

; 4) 0336 OUN_NODE = ,“F8E NODE Sat ge VERB_OBJECT_PTRI); 

3 34 033 PARSE. STG_ DESC = SNOUN_NODE COBG$L-NOUN_ VALUE): 

: 209 3 

3 10 034 nitialize the Library neae- If the Logical a name DBGSHELP is defined, 
: ! e directory in w find DEBUGHLP.HLB. 

: 21 

3 1 

3 1 

3 1 

s 1 

$ 1 

: ; 
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OOOO O O00 0900 09 09 09 009 SINISE NS NS NSNINIA AAPA AAOOOUIIIUITIUM 


DONG NEW 9 OONAUE WN $9 ODNAUNE WIN 0 ODNO UNE WWR OOONAOUE 
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oc @ 
@oo- 

“now 

Oewo 

> =z 
mn 

orr 


P_STG; 
pr), BaGHELP $16); 
, Dummy, 0, 0, 0); 


TH] = 8; 
INTER] = UPLIT BYTE(ZASCII ‘DEBUGHLP'); 


Suppress leading blanks and tabs. 


INPUT_PTR = CHSPTR(.PARSE STG_DESCCDSCSA_POINTER]); 
CHAR _= CHSRCHAR(INPUT_PTRJ; 


COUNT = 0; 
WHILE .DBGSCHAR_TABLEL.CHAR] EQL 4 DO 


CHAR = CHSRCHAR_ACINPUT_PTR); 
—_— = COUNT # 1; 


Update the string descriptor to point to the first non-blank character. 
PARSE_STG_DESC DSCS$W_LENGTH] = .PARSE_STG_DESCCDSCS$W_LENGTH] = .COUNT; 
PARSE_STG_DESCCDSCSA_POINTER] = .INPUT_PTR; 

Save away PARSE_STG_DESC before we clobber it. 

SAVED_PARSE_STG_DESC = .PARSE_STG_DESC; 


Remove the trailing carriage return from PARSE_STG_DESC. 

INPUT_PTR = CHSPTR (.PARSE_STG_DESCCDSCSA_POINTER); 

INPUT-PTR = CHSPLUS (.INPUT_PTR, .PARSE STG DESCLDSCS$W_LENGTH) - 1); 

IF CHSRCHAR(. INPUT PTR) EQL ~DBG$K_CAR_RETURR 
PARSE_STG_DESCCDSC$W_LENGTH) = .PARSE_STG_DESCCDSCS$W_LENGTH) - 1; 

! Check for all blanks. If so, put zero in PARSE_STG_DESC to tell the 

HELP Librarian that no keys were specified. 

if -PARSE_STG_DESCCDSC$W_LENGTH) EQL 0 


PARSE_STG_DESC = 0; 


tet P 16-Sep-19 r 93:49:06 AX-11 Oh gears 4.0-742 Page 


- -Sep-19 DEBUG. SRC JDBGNHELP.B32;1 
1 411 
¢ i ! If screen mode is set, turn off screen mode for the duration of the 
4) : rt et command. We restore screen mode after the HELP command completes 
¢ t18 } if it was set when the HELP command was entered. 
£18 SCREEN _MODE_FLAG = .DBGSGL_SCREEN_MODE; 
ci IF .DBGSGL_SCREEN_MODE THER 0BG SCR_SCREEN_MODE (FALSE); 
89 41 
90 4 y ! Call the (*brary routine to output help text. Note that we restore 
4 ? : screen mode if appropriate before we signal any error message. 
9 4 4 STATUS = LBRSOUTPUT_HELP (PRINT_HELP Lie 0, .PARSE_STG_ DESC 
94 426 .LIB_NAME, OPLITTHLPSM_PROMPT), INPUT_HELP_LINE); 
95 425 IF .SCREEN_MODE_FLAG THEN DBG$SCR_SCREEN MODE (TRUES ; 
38 Oe § IF NOT .STATUS THEN SIGNAL (DBGS_NOSUCHELP, 0, .STATUS); 
98 428 
44 8 , } The HELP has been displayed. Now cleanup and return. 
01 04 1 PARSE_STG_DESC = .SAVED PARSE STG DESC; 
4 4 ; PARSE_STG_DESCCDSCSA_POINTER] = CRSPLUS ( . PARSE_STG_DESCLDSC$A_POINTER], 
0 04 -PARSE_STG_DESCCDSCS$W_LENGTH)); 
04 0434 PARSE STG_DESCCDSC$W_LENGTH] = 0; 
B bee RETURN STS$K_SUCCESS; 
07 be39 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


50 4C 45 48 24 47 42 4&4 00000 P.AAA: . ASCII \DBGSHELP\ : 
48 47 55 42 45 44 3A 50 4C 45 48 26 47 42 4 00008 P.AAB: ASCII \DBGS$HELP:DEBUGHLP\ : 
nueeenewe & & 00019 P.AAC: .ASCII \DEBUGHLP\ : 
00021 "BLKB 3 
00000001 00024 P.AAD: LONG 1 ; 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
O3FC 00000 - ENTRY POSRUERECUTE HELP, Save R2,R3,R4,R5,R6,R7,- 


59 900000006 00 9€ 9002 MOVAB DBGS$SCR SCREEN MODE RO : 

i ae eee : 

6 fe AC D iets MOVL VERB NODE, RO ; 

20 08 Aad 00 00019 MOVL (ROY, NOUN NODE : 

6 D 0 1 MOVL § (NOUN:NODE); PARSE_STG_DESC : 

DD PUSHL # : 

000000006 90 i CALLS ’ : DaGSGET TEMPMEM : 
E8 AD 010E0100 &F p ¢ MOVL  #17694976, DUMMY : 

EC AD GE ; 4 MOVAB DUMMY BUFFER DUMMY +4 ; 

F8 AD 010E0008 8F D0 00038 MOVL  #1769%728, DAGHELP_STGDESC : 


OY 


OWA O 
[CoO fw 


nn 
oO 


7" Mm 
o oo 


o 
co 


00000000600 


04 


FF 


000000006 
0000V 
24 


0000Vv 


00028028 


COOOCOCSOCOOCOOSOOOOOOOOCOoOooO 


> 
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>> 
OW 
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DEBUG. SRC JDBGNHELP.B32;1 


DBGHELP_STG, DBGHELP_STGDESC+4 
#8, BARA, 6BGHELP_STG 


=(SP) 
DUMMY 


) 
DBGHELP_STGDESC 

#6, SYSSTRNLOG 

TRNLOG, #1 

#17, <LIB_NAME) 

P.AAB, 4(CIB_NAME) 

#8, (LIB_NAME) 

P.AAC, 4°L1B_NAME) 

4(PARSE STG BESC), INPUT_PTR 
INPUT_PTR, CHAR 

COUNT 

DBGSCHAR_TABLECCHAR], #4 


4 
(INPUT_PTR)+, CHAR 
OUNT 


$ 
COUNT, (PARSE _STG_DESC) 
INPUT 


“PTR, 4(PARSE_STG_DESC) 
PARSE-STG. DESC, SAVED PARSE _STG_DESC 
4(PARSE_STG DESC), INPUT_PTR 


P R, 
=“1(R13, INPUT 
{INPUT_PTRD, | 


#1, DBGSSCR_SCREEN_MODE 
INPUT_HELP_CINE 

P.AAD 

LI8 NAME 

PARSE.S G_DESC 
PRINT_HELP_LINE 

#6, LBERSOUTPUT_HELP 

RO, STATUS 

SCREEN MODE FLAG, 88 

wi DBGSSCR_ SCREEN, MODE 
STATUS, 9$ 

STATUS 


#167208 
#3, LIBSSIGNAL 


o~ 


@OnMr~ 


voo~000" 


; Routine Size: 


268 bytes, 


06 A 


Routine Base: 


DBGSCODE + 


11 
1-5 =1984 01:46: AX-11 Bliss-32 V4.0-742 
yexgee~ TSBs 93:95:98 = FONG Ohi ssedeutte asses 
p0 ore 9$: mov SAVED_PARSE_STG DESC. PARSE_STG_DESC 
c FF MOVZWL (PARSE STG DESC), R 
C6 00102 ADDL2 4(PARSE STG DESC) 
B4 001 CLRW (PARSE _S 6_BESC 
DO 0010 MOVL ‘ 
04 00108 RET 
0033 


F 11 
Pp - =” 3 8 = = e = 
anO66 1ecSep-198e 12:19:16 — EDeeUG.SRCSDBGNMEL PLB S271 eel 


3 18 ‘3 } ROUTINE PRINT_HELP_LINE(LINE DESC) = 
: 31 440 1 | FUNCTION 
$ \§ 41 1! Print a Line of HELP text to the DEBUG output device. It is necessary 
3 1 tg 1! to pass this routine to LBRSOUTPUT HELP, instead of using the default 
3 316 445 1! routine LIBSPUT_ OUTPUT, because DEBUG may write its output to a log 
3 319 444 1! file, to logical name 6BGSOUTPUT, or to a screen display, and not 
; 1 ree : necessarily to SYSSOUTPUT. 
; 18 447 1) INPUTS 
; 268 ; LINEDESC = A pointer to a string descriptor for the Line to be output. 
: 321 450 1 | OUTPUTS 
3 é ? 1 i This routine always returns SS$_NORMAL as its value. 
: 324 gi38 pt 
3 5 454 BEGIN 
3 $ 455 
: $28 MAP 
3 34 of LINE_DESC: REF DBGS$STG_DESC; ! Pointer to output Line string descr. 
; $0 0459 
: 1 460 
3 3 Bees Output the Line of HELP text via DBGSPRINT. Then return. 
: 334 es SABORT_ON_CONTROL_Y; 
; 33 464 DBGSPRINTTUPLIT BYTE(ZASCIC *!AD") 
; 6 465 .LINE_DESCCOSC$w_LENGTHI, -LINE_DESCCDSCSA_POINTER]); 
3 7 046 DBGSNEWLINE(); 
; 338 046 RETURN SS$_NORMAL; 
; 339 0468 
3 40 0469 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
44 41 21 03 00028 P.AAE: .ASCII <3>\!AD\ : 
.EXTRN DBGS$GV_CONTROL 
-PSECT DBGSCODE.NOWRT, SHR, PIC,0 
0000 00000 PRINT_HELP_LINE: 
-WORD Save nothin ; 0438 
0D 000000006 00 1 €1 00002 BBC # 8 $GV_CONTROL+1, 1$ : 0457 
000280E8 F DD OA PUSHL #164 3 
000000006 99 1 FB 19 CALLS #1, LIBSSIGNAL 3 
0 8 AC D 17 18: MOVL INE_DESC, RO 3 0465 
4 A D 18 PUSHL R : 
7E 6 3¢ if MOVZWL (RO), -(SP) 8 
00000000" EF 9F PUSHAB P,.AA 3 0464 
000000006 00 FB 7 CALLS #3, DBGSPRINT 3 
000000006 ; fe CALLS 40, PROCueNA INE ; 0466 
1 p MOVL #1, R : 0467 
4 RET : 0469 
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; Routine Size: 57 bytes, Routine Base: DBGSCODE + 013F 


vos-000" Ebene QLth:06  YASGE. Gh sade ats? 
$ 


CIS_PTR = .CIS_PTRCCISSA_NEXT_LINK]; 


IF ‘- CIS_PTRCCIS$SB_INPUT_TYPE) NEQ CIS poss iarut) AND 
(-CIS- PTRCCIS$B_INPUT_TYPE] NEQ CIS_R 


RCDSC$W_LENGTH] = 0; 
Er gr SS$_NORMAL ; 
END: 


3 re rh ! ROUTINE INPUT_HELP_LINE (GET_STR, PROMPT_STR) = 

3 3446 if 1 ! FUNCTION 

: 345 475 1! Reads 8 Line of HELP met from the DEBUG input stream. This routine 
3 re 476 1! ; $ used PP Para H LP to collect responses fo he ak on ” Ban, 

s 34 475 1! ‘Suus pr onprs is necessary to use th nstead of t 

; 348 4 1! detourk Class TI PUT, Senaee DEBUG mex read its input tres pecSINPUT, 
: 9 477 1! the keypad read” routine, or from an indirect command file, and not 

; 0 478 1 i necessarily from SYSSINPUT. 

: 1 479 1! 

; ¢ 480 1 ! INPUTS 

; 48) 1! GET_STR - ey address of a etring descriptor pointing to the buffer 

3 ¢ rs § : } to receive the input Line. 

; 56 begs : PROMPT_STR = A string descriptor specifying the prompt string. 

; 358 0486 1 ! OUTPUTS 

3; 359 0487 1! GET_STR = The actual length of the read input string is returned to the 
g rs et $4 : } Length field of the GET_STR string descriptor. 

5 o¢ 0490 1! The sienna wyrereng fy Bi the $GET call is returned as this routine's 

s 0491 1! GET was not called, SS$_NORMAL or the hopeed 

: 364 0492 1! stew mA s status is returned.” 

; 365 04935 1! 

3 66 0494 1 

; 367 495 BEGIN 

: 368 49 

; 369 049 MAP 

: 70 98 GET_STR: REF DBG$STG_DESC ' Etring descriptor for input buffer 

: 371 0499 PROMPT_STR: REF DBGSSTG_DESC; | Prompt string string descriptor 

: 37 050 CAL 

3 378 050 E1s PTR: REF CISSLINK, ' Pointer to Command Input Stream entry 
; 375 050 LENGTH, ' The input length on a keypad read 

; 5376 050 STATUS; ' The RMS status code 

; 377 050 

3 A 050 

; 380 ! If we are currently ete from a DEBUG command List as on an IF, FOR, 

; 381 ' or WHILE statement, or a screen display DEBUG command List, we simp ly 

; 8 i return a null Line t > the HELP Librarian. This means that HELP re et 
3 a7 in such command Lists do not prompt for topics or subtopics. 

3 +H CIs_ PTR = .DBGSGL_CISHEAD; 

; Ht ete PTR C1S$B- NPUT TYPE) EQL CIS_INPBUF 


OVW OOO NOUEWN —“OOONOUESWN— 


RoRoRoRONONon 2 2 2 = OOO 
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; 399 7 ! We are reeding from the user's input terminal (SYSSINPUT or DBGSINPUT) 
3 § 3 ! or we are reading from an indirect command file. If we are reading from 
; 401 ! the terminal and we are in screen mode, we update the screen at this 

; 6 § 0 ! point so that the user sees his current HELP output before being prompted 
: ret 1 } for another topic or subtopic. 

; 405 : IF .DBGSGL_SCREEN_MODE AND 

3 ret : 4 (.CIS_PTRCCISSB_INPUT_TYPE] EQL C1IS_O0BGSINPUT) 

; 40 5 HEN 

3 § 5 $ DBGSSCR_OUTPUT_SCREEN(); 

: oY0 338 

; 6411 : 9 ! If keypad input mode is enabled and we are reading from the terminal, we 
3 tig Beet } read a Line of input by calling the keypad input routine. 

; 4146 beeg IF .D0BG$GB Shr INPUT AND 

3 6415 054 (.CIS_PTRCCIS$SB_INPUT_TYPE] EQL CIS_DBGSINPUT) 

; 416 0544 THEN 

: 417 0545 BEGIN 

: 418 0546 STATUS = SMGSREAD_COMPOSED_LINE (DBGS$GL_KEYBOARD_ID, 

3; 419 0547 DBGSGL_KEY_TABLE_ID, 

; 420 0548 -GET_S 

i 491 0549 :PROMPT_STR, 

3; 6 4 0551 ! #** Note = the fifth parameter (DEFAULT_STATE) is being removed from 

: 426 b22¢ 1 *** this routine, according to Steve Lionel. If Steve's change doesn't 

; : 2 Beez } eee make it this build, however, the ‘0'' must be restored here. 

3; 427 0555 : 0, 

; 428 9238 

; 429 055 LENGTH); 

; 4 0558 GET_STRCDSC$W_LENGTH] = .LENGTH; 

3 431 0559 IF [STATUS EQC SMG$_EOF THEN STATUS = RMS$_EOF; 

3 $38 0560 RETURN .STATUS; 

; 43 0561 ND; 

; 434 Beg 

; 435 056 ; 

: 436 0564 ! We are either reading from the user's terminal in the normal way using 
: 437 Bees ! RMS or we are reading from an indirect command file. Hence we set up 
3 $38 p29 the RAB and call RMS to give the prompt and read a Line. 

; 440 0568 DBGS$GL_INPRABCRAB$SW_USZ] = .GET_STRCDSCSW_LENGTH); 

: «(4461 3267 DBGSGL_INPRABLRABSL_UBFJ = .GET STRLDSCSA POINTER); 

3 44 82 0 DBGSGL_INPRABLRAB$B_PSZ) = .PROAPT_STRCDSCS$W_LENGTHI; 

3; 44 571 DBGSGL_INPRABLRABSL_PBFJ = .PROMPT_STR DSCSA-POINTER); 

> 444 276 STATUS = $SGET(RAB = DBGSGL_INPRAB); 

OR 

: 46 575 ! Put the number of characters read back into the string descriptor. Then 
; $68 278 return with the status we got back from $GET. 

3; 450 378 GET STRCDSC$W_LENGTH) = .DBGSGL_INPRABCRABSW_RSZ); 

3; 6451 57 RETORN .STATUS; 

3 ti 280 

3; «645 581 END; 


000000006 
000000006 
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10 
000000006 


0386 1 
0585 0 END ELUDOM 
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; Routine Size: 162 bytes, Routine Base: DBGSCODE + 0178 


~EXTRN 


96 AX-11 Ot geese V4.0-742 
DEBUG. SRC JDBGNHELP.B32;1 


SYSSGET 


R2,R3 
Le NPRAB+32, R3 
L 


j 
CISHEAD, CIS_PTR 
PTR), #2 
-PTR). CIS_PTR 
“PTR). R 
$ 
R 
2 


SGC, SEREEN MORE 3$ 


3$ 
#0, DBGSSCR_OUTPUT_SCREEN 
DgGSGB_KEYPAD_INPUT, 4$ 


4$ 


SP 
GET_STR, =(SP) 

DBGSGL_KEY TABLE_ID 

beGScL KEYBOARD TD 
#5, SMGSREAD_COMPOSED_LINE 
LENGTH, @GET-STR 

TATUS, #SMGS_EOF 


$ 
#98938, STATUS 


GET_STR, R2 
(R23, DBGS$GL INPRAB*32 
(R25, DBGS$GC_INPRAB+36 
ROMPT_STR, R 

R1), BBGSGL_INPRAB+52 
(R1$, DBG$GC_INPRAB+48 
BGS$GL_INPRAB 


4 
P 
( 
4 
D 
#1, SYSSGET 
DBGSGL_INPRAB+34, (R2) 


LIBSSIGNAL 


On NN NO OO 
-o NN OO @O 
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PSECT SUMMARY 


; Name Bytes Attributes 

; DBGSCODE 538 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; DBGSPLIT 44 WNOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; Library Statistics 

; cescenas SyEbe(g cococcece Pages Processing 

; File Total Loaded Percent Mapped Time 

; $255$0uA28 cESYSLIBILL .L32;1 18619 19 0 1009 00:01.8 

; 7$255$D BUG.0BJ JISTRUCDEF 432; 1 32 0 9 00:00.1 

; “$555s0uaz8: J}0BGLIB.L32;1 154 4 97 00:02.1 

3 $255$DUA ‘EDEBUe. OB, DSTRECRDS $2 31 9 0 31 0:00 ; 

; '$ 55$DUA28: (DEBUG. OBJ JDBGMSG.L32; 1 3 2 00:00. 

; mTEtttinys Mate MBL $i) 398 6 § $8 0:00.3 

: COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DBGNHELP/OBJ=O0BJ$:DBGNHELP MSRC$:DBGNHELP/UPDATE=(ENH$: DBGNHELP) 
; Size: 538 soge + 44 data bytes 


; Lexemes/CPU-Min: 
4 Used: 137 pages 


: Lines/CPU Min: 3 ize" 
3 12401 
; compilation, Complete 
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